home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / musik / MIDIFP21 / SOURCES / MIDI_PRT / PRINTER / PRINTER.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-29  |  11.3 KB  |  372 lines
  1. /**************************************************************
  2. *
  3. *                PRINTER.C
  4. *
  5. **************************************************************/
  6.  
  7. #include <acs.h>
  8. #include <acsplus.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <tos.h>
  12. #include <messages.pif>
  13. #include <acs_plus.pif>
  14. #include <diskfile.pif>
  15. #include "..\drawer\drawer.pif"
  16. #include "..\params\params.pif"
  17.  
  18. #include "printer.pif"
  19. #include "printer.h"
  20. #include "printer.ah"
  21.  
  22.  
  23. /************* OBJECT DATA PROTOTYPE BEGIN ***********************/
  24.  
  25. typedef struct 
  26. {
  27.     /*** init only data ***/
  28.     char path[pathname_length], filename[filename_length] ;
  29.     int print_handle, print_width, print_height ;
  30.     int screen_handle, screen_width, screen_height ;
  31.     Awindow *drawer_wi ;
  32. } 
  33. PRINTER ;
  34.  
  35. /************* OBJECT DATA PROTOTYPE END *************************/
  36.  
  37.  
  38.  
  39. /*******************************************************************
  40. */
  41.     static int service(Awindow *wi, int task, void *not_used)
  42. /*
  43. * Service routine for messages sent to the printer window.
  44. * 
  45. * OUTPUT:  AS_TERM ==> message is forwarded to parent
  46. *          AS_INFO ==> a little help function 
  47. * 
  48. *******************************************************************/
  49. {
  50.     switch (task)
  51.     {    
  52.         case AS_TERM: Awi_sendall(TERMINATE, wi) ; return TRUE ; 
  53.         case AS_INFO: A_dialog(&PRINTER_INFO) ;    return TRUE ;
  54.         default:      return FALSE ;
  55.     }
  56. }
  57.  
  58.  
  59. static void to_file(void)
  60. { 
  61.     ev_object[INTO_ONE].ob_state ^= DISABLED ;
  62.     Awi_obchange(ev_window, INTO_ONE, -1) ; 
  63. }
  64.  
  65. /*******************************************************************
  66. */
  67.     static void go(void)
  68. /*
  69. * for the "go" button in the printer
  70. * window work object. A number of pages corresponding to the user's
  71. * entries in the work object is sent to printer or 1 page is sent to
  72. * metafile driver. Selection between printer and metafile driver is 
  73. * done depending on the "to file" checkbox. 
  74. * The metafile driver is loaded when output to file is selected.
  75. * Same is valid for metafile fonts. 
  76. * The metafile is written to the path of the GEM clipboard. If no 
  77. * path is set the GEM clipboard is set to "current drive":\clipbrd .
  78. * If that directory does not exist it is created.
  79. * The printer driver is expected to be already loaded !
  80. * Same is valid for printer fonts.
  81. * 
  82. * OUTPUT:    - a directory \clipbrd if no clipboard path is set
  83. *              and output to file is desired
  84. *            - one or several pages with note systems generated 
  85. *              via VDI routines on the printer or 
  86. *              the metafile workstation 
  87. * 
  88. *******************************************************************/
  89. {
  90. PRINTER *p = ev_window->user ;
  91. int first, last, page, i, length ;
  92. char path_buffer[pathname_length], clipboard[pathname_length], metafilename[filename_length] ;
  93. char *point, pagestring[9] ;
  94. int points[4], drive, drive_buffer ;
  95. unsigned long existing_drives ;
  96. int handle, work_in[11], work_out[57] ;
  97.  
  98.     /*** enable page number GEM object ***/
  99.     Awi_obchange(ev_window, PAGE, ev_object[PAGE].ob_state & ~DISABLED) ;      
  100.  
  101.     /*** determine first and last page to be drawn ***/
  102.     if (ev_object[FROM_TO].ob_state & SELECTED)
  103.     {
  104.         first = atoi(ev_object[FROM].ob_spec.tedinfo->te_ptext) ;
  105.         page = get_first_page(p->drawer_wi) ;
  106.         if (first < page) first = page ;
  107.         last = atoi(ev_object[TO].ob_spec.tedinfo->te_ptext) ;
  108.         page = get_last_page(p->drawer_wi) ;
  109.         if (last > page) last = page ;
  110.     }
  111.     if (ev_object[CURRENT].ob_state & SELECTED)
  112.         first = last = get_current_page(p->drawer_wi) ;
  113.     if (ev_object[ALL].ob_state & SELECTED)
  114.     {
  115.         first = get_first_page(p->drawer_wi) ;
  116.         last = get_last_page(p->drawer_wi) ;
  117.     }
  118.     /*** print (to printer or to file ?) ***/
  119.     if (ev_object[TO_FILE].ob_state & SELECTED)
  120.     {
  121.         /*** buffer current drive and path ***/
  122.         drive_buffer = Dgetdrv() ;
  123.         Dgetpath(path_buffer, 0) ;
  124.  
  125.         /*** check which drives exist (get bit table) ***/
  126.         existing_drives = Dsetdrv(drive_buffer) ;
  127.  
  128.         /*** get/set clipboard path ***/
  129.         scrp_read(clipboard) ;
  130.         if (clipboard[0])
  131.         {
  132.             /*** test if clipboard path already defined physically exists ***/
  133.             Dsetdrv( (*clipboard - 'A') & 0x1F ) ;
  134.             if ( Dsetpath(clipboard + 2) < 0 )
  135.             {
  136.                 alert_str(PATH_NOT_EXIST, clipboard) ;
  137.                 clipboard[0] = 0 ;
  138.             }
  139.         }
  140.         else
  141.         {
  142.             /*** no valid clipboard path defined ***/
  143.             existing_drives >>= 2 ; /* drive 'C' in least bit */
  144.  
  145.             /*** search first existing drive ***/
  146.             for ( drive = 'C' ; drive <= 'Z' ; drive++ )
  147.             {
  148.                 if (existing_drives & 0x0001)
  149.                 {
  150.                     clipboard[0] = drive ; 
  151.                     drive = 'Z' + 2 ;
  152.                 }
  153.                 existing_drives >>= 1 ; /* test next drive */
  154.             }
  155.             /*** if no drive found, use current drive ***/
  156.             if ( !clipboard[0] ) clipboard[0] = drive_buffer + 'A' ;
  157.             clipboard[1] = 0 ;
  158.             strcat(clipboard, ":\\CLIPBRD\\") ;
  159.  
  160.             /*** test if clipboard path already exists ***/
  161.             Dsetdrv( (*clipboard - 'A') & 0x1F ) ;
  162.             if ( Dsetpath("\\CLIPBRD\\") < 0 )
  163.             {
  164.                 /*** directory must be created ***/
  165.                 Dsetpath("\\") ;
  166.                 if ( Dcreate("CLIPBRD") < 0 )
  167.                 {
  168.                     alert_str(DIR_NOT_CREATED, clipboard) ;
  169.                     Dsetpath(p->path) ;
  170.                 }
  171.                 else
  172.                 {
  173.                     /*** define path for clipboard ***/
  174.                     alert_str(DIR_CREATED, clipboard) ;
  175.                     Dsetpath("\\CLIPBRD\\") ;
  176.                     scrp_write(clipboard) ;
  177.                 }
  178.             }
  179.         }
  180.         if (ev_object[INTO_ONE].ob_state & SELECTED)
  181.         {
  182.             /*** all pages into SCRAP.GEM separated by form advances ***/
  183.             /*** open physical workstation (metafile driver) ***/
  184.             work_in[0] = 31 ; /* metafile driver of assign.sys */
  185.             for ( i = 1 ; i <= 8 ; i++ ) work_in[i] = 1 ; 
  186.             work_in[9] = 0 ; work_in[10] = RC ; 
  187.             v_opnwk(work_in, &handle, work_out) ;
  188.             if (handle)
  189.             {
  190.                 vm_filename(handle, "SCRAP.GEM") ;
  191.  
  192.                 /*** load metafile fonts ***/
  193.                 vst_load_fonts(handle, 0) ;
  194.  
  195.                 /*** layout  and "print" ***/
  196.                 if ( page_layouter(p->screen_handle, p->screen_width, p->screen_height, 
  197.                      p->drawer_wi) == LAYOUT_GOOD ) for ( page = first ; page <= last ; page++ ) 
  198.                 {
  199.                     itoa(page, ev_object[PAGE].ob_spec.tedinfo->te_ptext, 10) ;
  200.                     Awi_obchange(ev_window, PAGE_CARRIER, -1) ;      
  201.                     points[0] = points[1] = 0 ;
  202.                     points[2] = p->screen_width ; 
  203.                     points[3] = p->screen_height ;
  204.                     draw_page(handle, p->drawer_wi, 0, 0, points, 1, page) ;
  205.                     v_form_adv(handle) ;
  206.                 }
  207.                 reset_layout(p->drawer_wi) ;
  208.                 /*** never change the sequence of the following functions: PURE C error !!! ***/
  209.                 v_meta_extents(handle, 0, 0, p->screen_width, p->screen_height) ;
  210.                 vm_pagesize(handle, 2090, 2970) ;    /* DIN A4 */
  211.                 vm_coords(handle, 0, p->screen_height, p->screen_width, 0) ;
  212.  
  213.                 vst_unload_fonts(handle, 0) ;    
  214.                 v_clswk(handle) ;
  215.             }
  216.             else alert_str(METAFILING_NOT_POSSIBLE, "") ;
  217.         }
  218.         else for ( page = first ; page <= last ; page++ )
  219.         {
  220.             /*** 1 file per page ***/ 
  221.             itoa(page, ev_object[PAGE].ob_spec.tedinfo->te_ptext, 10) ;
  222.             Awi_obchange(ev_window, PAGE_CARRIER, -1) ;      
  223.  
  224.             /*** open physical workstation (metafile driver) ***/
  225.             work_in[0] = 31 ; /* metafile driver of assign.sys */
  226.             for ( i = 1 ; i <= 8 ; i++ ) work_in[i] = 1 ; 
  227.             work_in[9] = 0 ; work_in[10] = RC ; 
  228.             v_opnwk(work_in, &handle, work_out) ;
  229.             if (handle)
  230.             {
  231.                 /*** set file name, set extension to "GEM", include page number ***/
  232.                 strcpy(metafilename, p->filename) ;
  233.                 point = strrchr(metafilename, '.') ;
  234.                 if (!point) 
  235.                 {
  236.                     point = metafilename + strlen(metafilename) ;
  237.                     point[0] = '.' ; point[1] = 0 ;
  238.                 }
  239.                 strcpy( point + 1, "GEM" ) ;
  240.                 itoa(page, pagestring, 10) ;
  241.                 length = strlen(pagestring) ;
  242.                 memcpy( point - length, pagestring, length ) ;
  243.                 vm_filename(handle, metafilename) ;
  244.  
  245.                 /*** load metafile fonts ***/
  246.                 vst_load_fonts(handle, 0) ;
  247.  
  248.                 /*** layout  and "print" ***/
  249.                 if ( page_layouter(p->screen_handle, p->screen_width, p->screen_height, 
  250.                      p->drawer_wi) == LAYOUT_GOOD )   
  251.                 {
  252.                     points[0] = points[1] = 0 ;
  253.                     points[2] = p->screen_width ; 
  254.                     points[3] = p->screen_height ;
  255.                     draw_page(handle, p->drawer_wi, 0, 0, points, 1, page) ;
  256.                     v_meta_extents(handle, 0, 0, p->screen_width, p->screen_height) ;
  257.                     vm_pagesize(handle, 2090, 2970) ;
  258.                     vm_coords(handle, 0, p->screen_height, p->screen_width, 0) ;
  259.                 }
  260.                 reset_layout(p->drawer_wi) ;
  261.                 vst_unload_fonts(handle, 0) ;    
  262.                 v_clswk(handle) ;
  263.             }
  264.             else alert_str(METAFILING_NOT_POSSIBLE, "") ;
  265.         }
  266.  
  267.         /*** "GEMFILE.GEM" exists because of GDOS error ? ***/
  268.         Fdelete("GEMFILE.GEM") ; /* a workaround ! */
  269.  
  270.         /*** restore original drive and path ***/        
  271.         Dsetdrv(drive_buffer) ;
  272.         Dsetpath(path_buffer) ;
  273.     }
  274.     else 
  275.     {
  276.         /*** generate printed paper ***/
  277.         if ( page_layouter(p->print_handle, 
  278.              p->print_width, p->print_height, p->drawer_wi) != LAYOUT_GOOD )
  279.         {        
  280.             alert_str(NO_LAYOUT, "") ;
  281.             reset_layout(p->drawer_wi) ;
  282.             return ;
  283.         }    
  284.         points[0] = points[1] = 0 ;
  285.         points[2] = p->print_width - 1 ; 
  286.         points[3] = p->print_height - 1 ;
  287.         for ( page = first ; page <= last ; page++ )
  288.         {
  289.             itoa(page, ev_object[PAGE].ob_spec.tedinfo->te_ptext, 10) ;
  290.             Awi_obchange(ev_window, PAGE, -1) ;      
  291.             draw_page(p->print_handle, p->drawer_wi, 0, 0, points, 1, page) ;
  292.             v_updwk(p->print_handle) ;
  293.             v_clrwk(p->print_handle) ;
  294.         }
  295.         reset_layout(p->drawer_wi) ;
  296.     }
  297.     /*** disable page number GEM object ***/
  298.     Awi_obchange(ev_window, PAGE, ev_object[PAGE].ob_state | DISABLED) ;      
  299. }
  300.  
  301.  
  302. /*******************************************************************
  303. *
  304. *             PUBLISHED INTERFACE
  305. *
  306. *******************************************************************/
  307.  
  308.  
  309. void PRINTER_destructor(Awindow *wi)
  310. {
  311.     if (wi) 
  312.     {
  313.         memory_symptom = "PrDstr wi->user" ;
  314.         if (wi->user) My_free(wi->user) ;
  315.         memory_symptom = "PrDstr wi" ;
  316.         Awi_delete(wi) ;
  317.     }
  318. }
  319.  
  320.  
  321. Awindow *PRINTER_constructor(PRINTER_INIT *printer_init)
  322. {
  323. Awindow *wi ;
  324. PRINTER *p ;
  325.  
  326.     /*** enter filename into icon text and info line ***/
  327.     PRINTER_WINDOW.iconblk = printer_init->icon ;
  328.     PRINTER_WINDOW.iconblk->monoblk.ib_ptext = printer_init->filename ;
  329.     PRINTER_WINDOW.info = printer_init->filename ;
  330.  
  331.     /*** create the PRINTER window ***/
  332.     wi = Awi_create(&PRINTER_WINDOW) ;
  333.     if (!wi) return NULL ;
  334.  
  335.     /*** allocate printer structure and initialize ***/
  336.     wi->user = p = My_alloc(sizeof *p) ;
  337.     if (!p) { PRINTER_destructor(wi) ; return NULL ; }
  338.     strcpy(p->filename, printer_init->filename) ;
  339.     strcpy(p->path, printer_init->path) ;
  340.     strrchr(p->path, '\\')[1] = 0 ;
  341.     p->screen_handle = printer_init->screen_handle ;
  342.     p->screen_width =  printer_init->screen_width ;
  343.     p->screen_height = printer_init->screen_height ;
  344.     p->print_handle = printer_init->print_handle ;
  345.     p->print_width =  printer_init->print_width ;
  346.     p->print_height = printer_init->print_height ;
  347.     p->drawer_wi = printer_init->drawer_window ;
  348.  
  349.     /*** disable buttons if necessary ***/
  350.     if (!p->print_handle) 
  351.     {
  352.         /*** printing not possible ***/
  353.         if (application)
  354.             /*** only metafiling possible ***/
  355.             wi->work[TO_FILE].ob_state |= (SELECTED | DISABLED) ;
  356.         else
  357.             /*** nothing possible in accessory ***/
  358.             wi->work[GO].ob_state |= DISABLED ;
  359.     }
  360.     else
  361.     {
  362.         /*** printing possible ***/
  363.         if (!application)
  364.             /*** metafiling not possible in accessory ***/
  365.             wi->work[TO_FILE].ob_state |= DISABLED ;
  366.     }
  367.     /*** return success message ***/
  368.     return wi ;
  369. }
  370.  
  371.  
  372.